home *** CD-ROM | disk | FTP | other *** search
- { Modify allocated memory }
-
- FUNCTION Func4A (S, N : INTEGER) : BOOLEAN;
- BEGIN
- WITH Registers DO
- BEGIN
- AX:=((AX AND $00FF) OR ($4A SHL 8));
- BX:=N;
- ES:=S;
- MSDOS (Registers);
- IF (Flags AND $0001)=1 THEN
- Func4A:=TRUE
- ELSE
- Func4A:=FALSE;
- END;
- END;